home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2009 February / PCWFEB09.iso / Software / Linux / Kubuntu 8.10 / kubuntu-8.10-desktop-i386.iso / casper / filesystem.squashfs / usr / share / console-setup / kbdnames-maker next >
Text File  |  2008-08-27  |  669b  |  29 lines
  1. #!/usr/bin/perl
  2.  
  3. use warnings 'all';
  4. use strict;
  5.  
  6. BEGIN {
  7.     my $file;
  8.     if ($ARGV[0]) {
  9.     $file = $ARGV[0];
  10.     } else {
  11.     $file = 'KeyboardNames.pl';
  12.     }
  13.     do "$file";
  14. }
  15.  
  16. for my $model (keys %KeyboardNames::models) {
  17.     my $name = $KeyboardNames::models{$model};
  18.     print "model*$name*$model\n"
  19. }
  20. for my $layout (keys %KeyboardNames::layouts) {
  21.     my $name = $KeyboardNames::layouts{$layout};
  22.     print "layout*$name*$layout\n";
  23.     print "variant*$name**$layout\n";
  24.     for my $variant (keys %{$KeyboardNames::variants{$name}}) {
  25.     my $variantname = $KeyboardNames::variants{$name}{$variant};
  26.     print "variant*$name*$variantname*$layout - $variant\n";
  27.     }
  28. }
  29.